home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / multicx2 / steuerung < prev    next >
AmigaDOS Script File  |  1978-01-08  |  2KB  |  107 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. if "[param]" EQ "install"
  19.     set vinstall 1
  20. endif
  21. set binfo        1
  22. set bcopy        1
  23. set bstart       1
  24. set binstall     1
  25.  
  26.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  27.     set nummer 0
  28.     if $binfo EQ 1
  29.          echo >>t:tmpsteuerung " Info" NOLINE
  30.          set nummer `eval $nummer + 1`
  31.          set ninfo $nummer
  32.     endif
  33.     if $bcopy EQ 1
  34.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  35.          set nummer `eval $nummer + 1`
  36.          set ncopy $nummer
  37.     endif
  38.     if $bstart EQ 1
  39.          echo >>t:tmpsteuerung " Start_OS2" NOLINE
  40.          set nummer `eval $nummer + 1`
  41.          set nstart $nummer
  42.     endif
  43.     if $binstall EQ 1
  44.          echo >>t:tmpsteuerung " Start_OS3" NOLINE
  45.          set nummer `eval $nummer + 1`
  46.          set ninstall $nummer
  47.     endif
  48.     if "[param]" EQ ""
  49.         echo >>t:tmpsteuerung " Ende" NOLINE
  50.         execute >nil: t:tmpsteuerung
  51.         delete >nil: t:tmpsteuerung
  52.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  53.         if $reqerg[$$] EQ 0
  54.             skip Ende
  55.         endif
  56.     endif
  57.     if $reqerg[$$] EQ $ninfo
  58.         set vinfo 1
  59.     endif
  60.     if $reqerg[$$] EQ $ncopy
  61.         set vcopy 1
  62.     endif
  63.     if $reqerg[$$] EQ $nstart
  64.         set vassign 1
  65.         set vstart 1
  66.         set vunassign 1
  67.     endif
  68.     if $reqerg[$$] EQ $ninstall
  69.         set vinstall 1
  70.     endif
  71. endif
  72.  
  73. if $vinfo EQ 1
  74. ;>>>>>>>> Hier Infotext eintragen
  75.     :c/Metatool :Aminet/MultiCX2/MultiCX.guide FT=GUIDE
  76. endif
  77. if $vstart EQ 1
  78. ;>>>>>>>> Hier steht das Startprogramm
  79.     cd :Aminet/MultiCX2/
  80.     MultiCX
  81. endif
  82. if $vcopy EQ 1
  83.     execute :c/Verzeichniskopieren ":Aminet/MultiCX2/" "MultiCX2" 165888
  84. endif
  85. if $vinstall EQ 1
  86.     cd >nil: :Aminet/MultiCX2/
  87.     MultiCX_OS3
  88. endif
  89.  
  90. unset binfo
  91. unset vinfo
  92. unset ninfo
  93. unset bstart
  94. unset vstart
  95. unset nstart
  96. unset binstall
  97. unset vinstall
  98. unset ninstall
  99. unset bcopy
  100. unset vcopy
  101. unset ncopy
  102. if "[param]" EQ ""
  103.     execute Steuerung
  104. endif
  105. LAB Ende
  106. unsetenv reqerg[$$]
  107.